*
* $Id$
*
* $Log: flkdt7.F,v $
* Revision 1.1.1.1  2002/06/16 15:17:52  hristov
* Separate distribution  of Geant3
*
* Revision 1.1.1.1  1999/05/18 15:55:04  fca
* AliRoot sources
*
* Revision 1.1.1.1  1995/10/24 10:19:36  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.45  by  S.Giani
*-- Author :
*$ CREATE BLKDT7.FOR
*COPY BLKDT7
*
*=== blkdt7 ===========================================================*
*==                                                                    *
      SUBROUTINE FLKDT7
*
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
* * Block data 7 (ex 2)                                                *
#include "geant321/decayc.inc"
      CHARACTER*8 ZKNAM1
      DIMENSION ZKNAM1(IDMAX9),NZK1(IDMAX9,3),WT1(IDMAX9)
*
*                                                                      *
*     Name of decay channel                                            *
*                                                                      *
      DATA (ZKNAM1(I),I=1,87) / 'P', 'AP', 'E-', 'E+', 'NUE', 'ANUE',
     & 'GAM',   'PE-NUE', 'APEANU', 'EANUNU', 'E-NUAN', '3PI0', 'PI+-0',
     & 'PIMUNU', 'PIE-NU', 'MU+NUE', 'MU-NUE', 'MU+NUE', 'PI+PI0',
     & 'PI++-', 'PI+00',  'M+P0NU', 'E+P0NU', 'MU-NU', 'PI-0', 'PI+--',
     & 'PI-00', 'M-P0NU', 'E-P0NU', 'PPI-',  'NPI0', 'PE-NUE', 'PM-NUE',
     & 'APPI+', 'ANPI0',  'APE+NU', 'APM+NU', 'PI+PI-', 'PI0PI0',
     & 'NPI-',  'PPI0',   'NPI+',   'LAGA',   'GAGA', 'GAE+E-', 'GAGA',
     & 'GAGAP0', 'PI000', 'PI+-0', 'PI+-GA',  'PI+0', 'PI+-',  'PI00',
     & 'PI-0',  'PI+-0',  'PI+-',  'PI0GA',  'K+PI0', 'K0PI+', 'KOPI0',
     & 'K+PI-', 'K-PI0', 'AK0PI-', 'AK0PI0', 'K-PI+', 'K+PI0', 'K0PI+',
     & 'K0PI0', 'K+PI-', 'K-PI0',  'AK0PI-', 'AK0PI0', 'K-PI+', 'K+PI0',
     & 'K0PI+', 'K+89P0', 'K08PI+', 'K+RO77', 'K0RO+7', 'K+OM07',
     & 'K+E055', 'K0PI0', 'K+PI+', 'K089P0', 'K+8PI-', 'K0R077',
     & 'K+R-77'/
      DATA (ZKNAM1(I),I=88,146)/
     & 'K0OM07','K0E055','K-PI0 ','AK0PI-','K-89P0','AK08P-','K-R077',
     & 'AK0R-7','K-OM07','K-E055','AK0PI0','K-PI+ ','AK08P0','K-8PI+',
     & 'AK0R07','K-R+77','AK0OM7','AK0E05','LA0PI+','SI0PI+','SI+PI0',
     & 'LA0PI0','SI+PI-','SI-PI+','LA0PI-','SI0PI-','NEUAK0','PK-   ',
     & 'SI+PI-','SI0PI0','SI-PI+','LA0ET0','S+1PI-','S-1PI+','SO1PI0',
     & 'NEUAK0','PK-   ','LA0PI0','LA0OM0','LA0RO0','SI+RO-','SI-RO+',
     & 'SI0RO0','LA0ET0','SI0ET0','SI+PI-','SI-PI+','SI0PI0',
     & 'K0S   ','K0L   ','K0S   ','K0L   ',
     & 'P PI+ ','P PI0 ','N PI+ ','P PI- ','N PI0 ','N PI- ','P PI+ '/
*                                                                      *
*   Designation N*@ means N*@1(1236)                                   *
*   @1=# means ++,  @1 = = means --                                    *
*   Designation  P+/0/- means Pi+/Pi0/Pi- , respectively               *
*                                                                      *
      DATA (ZKNAM1(I),I=147,251)/
     & 'N*#PI0','N*+PI+','PRHO+ ','P PI0 ','N PI+ ','N*#PI-','N*+PI0',
     & 'N*0PI+','PRHO0 ','NRHO+ ','P PI- ','N PI0 ','N*+PI-','N*0PI0',
     & 'N*-PI+','PRHO- ','NRHO0 ','N PI- ','N*0PI-','N*-PI0','NRHO- ',
     & 'PETA0 ','N*#PI-','N*+PI0','N*0PI+','PRHO0 ','NRHO+ ','NETA0 ',
     & 'N*+PI-','N*0PI0','N*-PI+','PRHO- ','NRHO0 ','P PI0 ','N PI+ ',
     & 'N*#PI-','N*+PI0','N*0PI+','PRHO0 ','NRHO+ ','P PI- ','N PI0 ',
     & 'N*+PI-','N*0PI0','N*-PI+','PRHO- ','NRHO0 ','P PI0 ','N PI+ ',
     & 'PRHO0 ','NRHO+ ','LAMK+ ','S+ K0 ','S0 K+ ','PETA0 ','P PI- ',
     & 'N PI0 ','PRHO- ','NRHO0 ','LAMK0 ','S0 K0 ','S- K+ ','NETA/ ',
     & 'APPI- ','APPI0 ','ANPI- ','APPI+ ','ANPI0 ','ANPI+ ','APPI- ',
     & 'AN*=P0','AN*-P-','APRHO-','APPI0 ','ANPI- ','AN*=P+','AN*-P0',
     & 'AN*0P-','APRHO0','ANRHO-','APPI+ ','ANPI0 ','AN*-P+','AN*0P0',
     & 'AN*+P-','APRHO+','ANRHO0','ANPI+ ','AN*0P+','AN*+P0','ANRHO+',
     & 'APPI0 ','ANPI- ','AN*=P+','AN*-P0','AN*0P-','APRHO0','ANRHO-',
     & 'APPI+','ANPI0  ','AN*-P+','AN*0P0','AN*+P-','APRHO+','ANRHO0'/
      DATA (ZKNAM1(I),I=252,330)/
     & 'PN*014','NN*=14',
     & 'PI+0  ','PI+-','PI-0','P+0','N++','P+-','P00','N+0','N+-','N00',
     & 'P-0   ','N-0   ','P--',
     & 'PPPI0 ','PNPI+ ','PNPI0 ','PPPI- ','NNPI+ ','APPPI0','APNPI+',
     & 'ANNPI0','ANPPI-','APNPI0','APPPI-','ANNPI-','K+PPI0','K+NPI+',
     & 'K0PPI0','K-PPI0','K-NPI+','AKPPI-','AKNPI0','K+NPI0','K+PPI-',
     & 'K0PPI0','K0NPI+','K-NPI0','K-PPI-','AKNPI-',
     & 'PAK0  ','SI+PI0','SI0PI+','SI+ETA','S+1PI0','S01PI+','NEUK- ',
     & 'LA0PI-','SI-OM0','LA0RO-','SI0RO-','SI-RO0','SI-ET0','SI0PI-',
     & 'SI-0', 23*'BLANK'/
      DATA (ZKNAM1(I),I=331,433)/
     & 'EPI+- ','EPI00 ','GAPI+-','GAGA* ','K+-   ','KLKS  ','PI+-0 ',
     & 'EGA   ','LPI0  ','LPI   ','APPI0 ','ANPI- ','ALAGA ','ANPI  ',
     & 'ALPI0 ','ALPI+ ','LAPI+ ','SI+PI0','SI0PI+','LAPI0 ','SI+PI-',
     & 'SI-PI+','LAPI- ','SI-PI0','SI0PI-','TE0PI0','TE-PI+','TE0PI-',
     & 'TE-PI0','TE0PI ','TE-PI ','LAK-  ','ALPI- ','AS-PI0','AS0PI-',
     & 'ALPI0 ','AS+PI-','AS-PI+','ALPI+ ','AS+PI0','AS0PI+','AT0PI0',
     & 'AT+PI-','AT0PI+','AT+PI0','AT0PI ','AT+PI ','ALK+  ',
     & 'K-PI+ ','K-PI+0','K0PI+-','K0PI0 ','K-PI++','AK0PI+','K+PI--',
     & 'K0PI- ','K+PI- ','K+PI-0','AKPI-+','AK0PI0','ETAPIF','K++-  ',
     & 'K+AK0 ','ETAPI-','K--+  ','K-K0  ','PI00  ','PI+-  ','GAGA  ',
     & 'D0PI0 ','D0GA  ','D0PI+ ','D+PI0 ','DFGA  ','AD0PI-','D-PI0 ',
     & 'D-GA  ','AD0PI0','AD0GA ','F+GA  ','F+GA  ','F-GA  ','F-GA  ',
     & 'PSPI+-','PSPI00','PSETA ','E+E-  ','MUE+- ','PI+-0 ','M+NN  ',
     & 'E+NN  ','RHO+NT','PI+ANT','K*+ANT','M-NN  ','E-NN  ','RHO-NT',
     & 'PI-NT ','K*-NT ','NUET  ','ANUET ','NUEM  ','ANUEM '/
      DATA (ZKNAM1(I),I=434,540)/
     & 'SI+ETA','SI+ET*','PAK0  ','TET0K+','SI*+ET','N*+AK0','N*++K-',
     & 'LAMRO+','SI0RO+','SI+RO0','SI+OME','PAK*0 ','N*+AK*','N*++K*',
     & 'SI+AK0','TET0PI','SI+AK*','TET0RO','SI0AK*','SI+K*-','TET0OM',
     & 'TET-RO','SI*0AK','C0+PI+','C0+PI0','C0+PI-','A+GAM ','A0GAM ',
     & 'TET0AK','TET0K*','OM-RO+','OM-PI+','C1++AK','A+PI+ ','C0+AK0',
     & 'A0PI+ ','A+AK0 ','T0PI+ ','ASI-ET','ASI-E*','APK0  ','ATET0K',
     & 'ASI*-E','AN*-K0','AN*--K','ALAMRO','ASI0RO','ASI-RO','ASI-OM',
     & 'APK*0 ','AN*-K*','AN*--K','ASI-K0','ATETPI','ASI-K*','ATETRO',
     & 'ASI0K*','ASI-K*','ATE0OM','ATE+RO','ASI*0K','AC-PI-','AC-PI0',
     & 'AC-PI+','AA-GAM','AA0GAM','ATET0K','ATE0K*','AOM+RO','AOM+PI',
     & 'AC1--K','AA-PI-','AC0-K0','AA0PI-','AA-K0 ','AT0PI-','C1++GA',
     & 'C1++GA','C10GAM','S+GAM ','S0GAM ','T0GAM ','XU++GA','XD+GAM',
     & 'XS+GAM','A+AKPI','T02PI+','C1++2K','AC1--G','AC1-GA','AC10GA',
     & 'AS-GAM','AS0GAM','AT0GAM','AXU--G','AXD-GA','AXS-GA','AA-KPI',
     & 'AT02PI','AC1--K','RH-PI+','RH+PI-','RH3PI0','RH0PI+','RH+PI0',
     & 'RH0PI-','RH-PI0'/
*                                                                      *
*     Weight of decay channel                                          *
*                                                                      *
      DATA (WT1(I),I=1,226)/11*1.D0,.21D0,.12D0,.27D0,.4D0,2*1.D0,.64D0,
     &.21D0,.06D0,.02D0,.03D0,.04D0,.64D0,.21D0,.06D0,.02D0,.03D0,.04D0,
     & .64D0,.36D0,2*0.D0,.64D0,.36D0,2*0.D0, .69D0, .31D0, 1.D0, .52D0,
     & .48D0,1.D0,.99D0,.01D0,.38D0,.03D0,.3D0,.24D0,.05D0,2*1.D0, 0.D0,
     & 1.D0,.9D0,.01D0,.09D0,.33D0,.67D0,.33D0,.67D0,.33D0,.67D0, .33D0,
     &.67D0,.33D0,.67D0,.33D0,.67D0,.33D0,.67D0,.33D0,.67D0,.19D0,.38D0,
     & .09D0,.2D0,.03D0,.04D0,.05D0,.02D0,.19D0,.38D0,.09D0,.2D0, .03D0,
     & .04D0,.05D0,.02D0,.19D0,.38D0,.09D0,.2D0,.03D0,.04D0,.05D0,.02D0,
     & .19D0,.38D0,.09D0,.2D0,.03D0,.04D0, .05D0, .02D0, .88D0, 2*.06D0,
     & .88D0,2*.06D0,.88D0,.12D0,2*.19D0,2*.16D0, .17D0, 3*.03D0, .04D0,
     & 2*.1D0,.2D0,.12D0,.1D0, 2*.04D0, .05D0, 2*.075D0, 2*.03D0, .04D0,
     & 4*.5D0,1.D0,.67D0,2*.33D0,.67D0, 1.D0, .25D0, .27D0, .18D0, .3D0,
     & .17D0,.08D0,.18D0,.03D0,.24D0,.2D0,.1D0,.08D0,.17D0,.24D0, .03D0,
     & .18D0,.1D0,.2D0,.25D0,.18D0,.27D0,.3D0,.4D0,.2D0, .125D0, .075D0,
     & .075D0,.125D0,.4D0,.075D0,.125D0,.2D0,.125D0,.075D0,.18D0, .37D0,
     &.13D0,.08D0,.04D0,.07D0,.13D0,.37D0,.18D0,.04D0,.08D0,.13D0,.13D0,
     & 2*.07D0,.13D0,.23D0,.47D0,.05D0,.02D0,.01D0, .02D0, .13D0, .07D0,
     &.47D0,.23D0,.05D0,.01D0,2*.02D0,1.D0,.67D0,.33D0,.33D0,.67D0,1.D0,
     & .25D0,.27D0,.18D0,.3D0,.17D0,.08D0,.18D0,.03D0,.24D0, .2D0, .1D0/
      DATA (WT1(I),I=227,330) / .08D0, .17D0, .24D0, .03D0, .18D0, .1D0,
     & .2D0, .25D0, .18D0, .27D0, .3D0, .18D0, .37D0, .13D0,.08D0,.04D0,
     & .07D0, .13D0, .37D0, .18D0, .04D0, .08D0, 2*.13D0, .07D0, 2*.5D0,
     & 3*1.D0, .8D0, .2D0, .6D0, .3D0, .1D0, .6D0, .3D0, .1D0,.8D0,.2D0,
     & .33D0, .67D0, .66D0, 2*.17D0, .32D0, .17D0, .32D0, .19D0,2*.33D0,
     & .34D0, .3D0, .05D0, .65D0,.38D0, .12D0, .38D0, .12D0,.38D0,.12D0,
     & .38D0, .12D0, .3D0, .05D0, .65D0, .38D0, 2*.25D0, .02D0, 2*.05D0,
     & 2*.2D0, .12D0, .1D0, 2*.07D0, .14D0, 2*.05D0, 23*1.D0/
      DATA (WT1(I),I=331,433) /.48D0, .24D0, .26D0, .02D0, .47D0, .35D0,
     & .15D0, .03D0, 2*1.D0, .52D0, .48D0, 4*1.D0, .9D0, 2*.05D0, .9D0,
     & 2*.05D0, .9D0, 2*.05D0, .33D0, 2*.67D0, .33D0, 2*.25D0, .5D0,
     & .9D0, 2*.05D0, .9D0, 2*.05D0, .9D0, 2*.05D0, .33D0, 2*.67D0,
     & .33D0, 2*.25D0, .5D0, .1D0, .5D0, .16D0, .24D0, .7D0, .3D0, .7D0,
     & .3D0, .1D0, .5D0, .16D0, .24D0, .3D0, .4D0, 2*.3D0, .4D0, .3D0,
     & .49D0, .49D0, .02D0, .55D0, .45D0, .68D0, .3D0, .02D0, .68D0,
     & .3D0, .02D0, .55D0, .45D0, .9D0, .1D0, .9D0, .1D0, .6D0, .3D0,
     & 3*.1D0, .8D0, 2*.28D0, .35D0, .07D0, .02D0, 2*.28D0, .35D0,
     & .07D0, .02D0, 4*1.D0 /
      DATA (WT1(I),I=434,540) / .02D0, .03D0, .07D0, 2*.02D0, .04D0,
     & .13D0, .07D0, 2*.06D0, .2D0, .14D0, .04D0, .1D0, .25D0, .03D0,
     & .3D0, .42D0, .22D0, .35D0, .19D0, .16D0, .08D0, 5*1.D0, .37D0,
     & .2D0, .36D0, .07D0, 6*.5D0, .02D0, .03D0, .07D0, 2*.02D0, .04D0,
     & .13D0, .07D0, 2*.06D0, .2D0, .14D0, .04D0, .1D0, .25D0, .03D0,
     & .3D0, .42D0, .22D0, .35D0, .19D0, .16D0, .08D0, 5*1.D0, .37D0,
     & .2D0, .36D0, .07D0, 6*.5D0, 9*1.D0, 2*.3D0, .4D0, 9*1.D0, 2*.3D0,
     & .4D0, 2*.33D0, .34D0, 4*.5D0 /
*     Particle numbers in decay channel                                *
*                                                                      *
      DATA (NZK1(I,1),I=1,378) / 1, 2, 3, 4, 5, 6, 7, 1, 2, 4, 3 ,23,
     & 3*13, 10, 11, 10, 3*13, 10, 4, 11, 3*14, 11, 3, 1, 8, 2*1, 2, 9,
     & 2*2, 13, 23, 8, 1, 8, 17, 3*7, 2*23, 4*13, 23, 14, 2*13, 23, 15,
     & 2*24, 15, 16, 2*25, 16, 15, 2*24, 15, 16, 25, 25, 16, 15, 24, 36,
     & 37, 15, 24, 2*15, 24, 15, 37, 36, 24, 15, 2*24, 16, 25, 38, 39,
     & 16, 25, 2*16, 25, 16, 39, 38, 25, 16, 2*25, 17, 22, 21, 17, 21,
     & 20, 17, 22, 8, 1, 21, 22, 20, 17, 48, 50, 49, 8, 1, 3*17, 21, 20,
     & 22, 17, 22, 21, 20, 22, 19, 12, 19, 12, 2*1, 8, 1, 2*8, 1, 53,
     & 54, 2*1, 8, 53, 54, 55, 1, 8, 1, 8, 54, 55, 56, 1, 2*8, 55, 56,
     & 8, 1, 53, 54, 55, 1, 2*8, 54, 55, 56, 1, 8, 1, 8, 53, 54, 55, 1,
     & 8, 1, 8, 54, 55, 56, 1, 8, 1, 8, 1, 8, 17, 21, 22, 2*1, 8, 1, 8,
     & 17, 22, 20, 8, 2*2, 9, 2, 2*9, 2, 67, 68, 2*2, 9, 67, 68, 69, 2,
     & 9, 2, 9, 68, 69, 70, 2, 2*9, 69, 70, 9, 2, 9, 67, 68, 69, 2, 9,2,
     & 9, 68, 69, 70, 2, 9, 1, 8, 2*13, 14, 1, 8, 2*1, 3*8, 1, 8, 5*1,
     & 8, 2*2, 2*9, 2*2, 9, 2*15, 24, 2*16, 2*25, 2*15, 2*24, 2*16, 25,
     & 1, 21, 22, 21, 48, 49, 8, 17, 20, 17, 22, 2*20, 22, 20, 23*0,
     & 2*31, 13, 7, 15, 12, 13, 31, 2*17, 2, 9, 18, 9, 2*18, 17, 21, 22,
     & 17, 21, 20, 17, 20, 22, 97, 98, 97, 98, 97, 98, 17, 18, 99, 100,
     & 18, 101, 99, 18, 101, 100, 102, 103, 102, 103, 102, 103, 18 /
      DATA (NZK1(I,1),I=379,540)/2*16, 2*24, 16, 25, 15, 24, 2*15, 2*25,
     & 31, 2*15, 31, 2*16, 23, 13, 7, 3*116, 2*117, 119, 2*118, 2*119,
     & 2*120, 2*121, 3*130, 4, 10, 13, 10, 4, 32, 13, 36, 11, 3, 34, 14,
     & 38, 133, 134, 135, 136, 2*21, 1, 97, 104, 54, 53, 17, 22, 2*21,
     & 1, 54, 53, 21, 97, 21, 97, 22, 21, 97, 98, 105, 3*137, 138, 139,
     & 2*97, 2*109, 140, 138, 137, 139, 138, 145, 2*99, 2, 102, 110, 68,
     & 67, 18, 100, 2*99, 2, 68, 67, 99, 102, 99, 102, 100, 99, 102,103,
     & 111, 3*149, 150, 151, 2*113, 2*115, 152, 150, 149, 151, 150, 157,
     & 140, 141, 142, 143, 144, 145, 146, 147, 148, 138, 145, 140, 152,
     & 153, 154, 155, 156, 157, 158, 159, 160, 150, 157, 152, 34, 32,
     & 2*33, 32, 33, 34 /
      DATA (NZK1(I,2),I=1,378) /7*0, 3, 4, 6, 5, 23, 14, 11, 3, 3*5, 23,
     & 13, 3*23, 5, 23, 13, 3*23, 14, 23, 3, 11, 13, 23, 4, 10, 14, 23,
     & 14, 23, 13, 2*7, 4, 2*7, 23, 2*14, 23, 14, 2*23, 2*14, 7, 23, 13,
     & 23, 14, 23, 14, 23, 13, 23, 13, 23, 14, 23, 14, 23, 13, 23, 13,
     & 23, 13, 33, 32, 35, 31, 23, 14, 23, 14, 33, 34, 35, 31, 23, 14,
     & 23, 14, 33, 34, 35, 31, 23, 13, 23, 13, 33, 32, 35, 31, 13, 13,
     & 2*23, 14, 13, 2*14, 25, 16, 14, 23, 13, 31, 14, 13, 23, 25, 16,
     & 23, 35, 33, 34, 32, 33, 2*31, 14, 13, 23, 4*0, 13, 23, 13, 14,
     & 23, 14, 13, 23, 13, 78, 23, 13, 14, 23, 13, 79, 78, 14, 23, 14,
     & 23, 13, 80, 79, 2*14, 23, 80, 31, 14, 23, 13, 79, 78, 31, 14, 23,
     & 13, 80, 79, 23, 13, 14, 23, 13, 79, 78, 14, 23, 14, 23, 13, 80,
     & 79, 23, 13, 33, 32, 15, 24, 15, 31, 14, 23, 34, 33, 2*24, 15, 31,
     & 14, 23, 14, 13, 23, 13, 14, 23, 14, 80, 23, 14, 13, 23, 14,79,80,
     & 13, 23, 13, 23, 14, 78, 79, 2*13, 23, 78, 23, 14, 13, 23, 14, 79,
     & 80, 13, 23, 13, 23, 14, 78, 79, 62, 61, 23, 14, 23, 2*13, 13, 23,
     & 2*13, 23, 3*14, 1, 2*8, 1, 8, 1, 2*8, 1, 8, 1, 8, 1, 8, 2*1, 8,1,
     & 2*8, 2*1, 2*8, 1, 8, 25, 23, 13, 31, 23, 13, 16, 14, 35, 2*34,33,
     & 31, 14, 23, 23*0, 13, 23, 14, 7, 16, 19, 14, 7, 23, 14, 23, 14,7,
     & 13, 23, 2*13, 23, 13, 23, 14, 13, 14, 23, 14, 23, 13, 14, 23, 14,
     & 23, 16, 14, 23, 14, 23, 14, 2*13, 23, 13, 23, 14,13,23,13,23,15 /
      DATA (NZK1(I,2),I=379,540) / 3*13, 23, 2*13, 5*14, 23, 13, 16, 25,
     & 14, 15, 24, 23, 14, 7, 23, 7, 13, 23, 7, 14, 23, 7, 23, 5*7, 13,
     & 23, 31, 3, 11, 14, 135, 5, 3*134, 136, 6, 3*133, 4*0, 31, 95, 25,
     & 15, 31, 95, 16, 2*32, 33, 35, 2*39, 38, 25, 13, 39, 32, 39, 38,
     & 35, 32, 39, 13, 23, 14, 2*7, 25, 37, 32, 13, 25, 13, 25, 13, 25,
     & 13, 31, 95, 24, 16, 31, 24,  15, 2*34, 33, 35, 2*37, 36, 24, 14,
     & 37, 34, 37, 36, 35, 34, 37, 14, 23, 13, 2*7, 24, 39, 34, 14, 24,
     & 14, 24, 14, 24, 14, 9*7, 25, 13, 25, 9*7, 24, 14, 24, 13, 14, 23,
     & 13, 23, 14, 23/
      DATA (NZK1(I,3),I=1,378) /7*0, 5, 6, 5, 6, 2*23, 2*5, 4*0, 14, 23,
     & 2*5, 2*0, 14, 23, 2*5, 2*0, 2*5, 2*0, 2*5, 7*0, 3, 0, 7, 2*23, 7,
     & 4*0, 23, 201*0, 23, 13, 14, 2*23, 14, 3*23, 14, 23, 13, 23, 14,
     & 13, 23, 13, 23, 14, 23, 2*14, 23, 2*13, 23, 13, 14, 2*23, 14, 23,
     & 13, 23, 2*14, 38*0, 14, 23, 7, 3*0, 23, 41*0 /
      DATA (NZK1(I,3),I=379,540) / 0, 23, 14, 0, 13, 0, 14, 2*0, 23, 13,
     & 2*0, 15, 2*0, 16, 18*0, 14, 23, 3*0, 23, 2*134, 3*0, 2*133, 92*0,
     & 2*13, 25, 9*0, 2*14, 24, 7*0/
*
      DO 10 J=1,IDMAX9
         ZKNAME(J)=ZKNAM1(J)
         WT(J)=WT1(J)
         DO 20 I=1,3
            NZK(J,I)=NZK1(J,I)
  20     CONTINUE
  10  CONTINUE
 
*=                                               end.block.blkdt7      *
      END
